home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 146 / Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ende -044- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 10 poke53280,.:printchr$(147)
  2. 13 forx=49152to49279:ready:pokex,y:next:sys49152:
  3. 16 data120,169,51,133,1,160,0,169,0,133,251,169,208,133,252,169,0,133,253,169
  4. 19 data32,133,254,160,0,177,251,24,106,145,253,200,177,251,24,106
  5. 22 data145,253,200,177,251,145,253,200,177,251,145,253,200,177,251,145,253
  6. 25 data200,177,251,24,42,145,253,200,177,251,24,42,145,253,200,177,251,24,42
  7. 28 data145,253,200,24,165,251,105,8,133,251,165,252,105,0,133,252,24,165
  8. 31 data253,105,8,133,253,165,254,105,0,133,254,165,251,201,248,208
  9. 34 data17,165,252,201,223,144,11,169,55,133,1,88,169,24,141,24,208,96,76,23
  10. 37 data 192,252
  11. 40 gosub97
  12. 43 print"[146]       [162][162][162][162][162] [162][150][162]  [162][150][162] [162][162][162][175][164] [162][162][162][162][162]"
  13. 46 print"        [150]      [150] [223]  [150]   [150]   [150]   [150] "
  14. 49 print"        [150] [184][184]   [150] [146][223][223] [150]   [150]   [150]   [150] [184][184]"
  15. 52 print"        [150]      [150]  [150][146][223] [150]   [150]   [150]   [150] "
  16. 55 print"         [150][184][184][184]  [150]  [146][223] [150]    [146][184] [150][162]   [150][184][184][184]":goto56
  17. 56 forl=4to12step.1 :poke781,l:poke782,31-1:sys59905:next:
  18. 58 :print"";:gosub103
  19. 61 poke53281,6:print"[146]       [158][162][162][162][162][162] [158][162][129][162]  [158][162][129][162] [158][162][162][162][175][164] [158][162][162][162][162][162]"
  20. 64 print"       [158] [129]     [158] [129] [223] [158] [129]  [158] [129]  [158] [129]  [158] [129] "
  21. 67 print"       [158] [129] [184][184]  [158] [129] [146][223][223][158] [129]  [158] [129]  [158] [129]  [158] [129] [184][184]"
  22. 70 print"       [158] [129]     [158] [129]  [129][146][223][158] [129]  [158] [129]  [158] [129]  [158] [129] "
  23. 73 print"       [158]  [129][184][184][184] [158] [129]  [146][223][158] [129]  [158]  [146][158][184] [129][162] [158]  [129][184][184][184]"     "
  24. 74 [129]l[178]4[164]12[169].1 :[151]781,l:[151]782,31[171]1:[158]59905:[130]:
  25. 76 [153]"";:[141]103
  26. 79 [151]53281,6:[153]"wait       clrnewnewnewnewnew clrnewdefnew  clrnewdefnew clrnewnewnewandto clrnewnewnewnewnew"
  27. 82 [153]"       clr def     clr def (NULL) clr def  clr def  clr def  clr def "
  28. 85 [153]"       clr def frefre  clr def wait(NULL)(NULL)clr def  clr def  clr def  clr def frefre"
  29. 88 [153]"       clr def     clr def  defwait(NULL)clr def  clr def  clr def  clr def "
  30. 91 [153]"       clr  deffrefrefre clr def  wait(NULL)clr def  clr  waitclrfre defnew clr  deffrefrefre"     "
  31. 94 forz=1to750:next:poke53272,21:
  32. 95 forl=4to12step.1:poke781,l:poke782,31-1:sys59905:next:gosub118
  33. 97 poke53280,11:poke53281,.:
  34. 100 print"[147][151]                und nun:                [145]":forz=1to100:next
  35. 103 fori=54272to54295:pokei,0:next:poke54296,15:
  36. 106 poke54295,64:poke54287,12:poke54278,255:poke54276,21:fori=1to1
  37. 109 fora=1to5step.1:poke54273,a+9:poke54276,32:poke54273,17+a:poke54286,a*6
  38. 112 nexta:nexti:poke54296,.::forz=1to300:next:poke53281,6:
  39. 115 poke53280,.:print"[145][145][144][182]                                      [144][181]";:return
  40. 118 forz=1to1000:next:
  41. 121 poke53281,.:printtab(33)" [151]lukian":forz=1to500:next:
  42. 124 sys58253
  43.